gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\orderList.asp
<!-- #include file = "include/sysbase.asp" --> <!-- #include file = "../include/config.asp" --> <% dim rsObj,strSQL dim page, myKeyword, thisUrl, i, bShowAdd, sAddPage page = Request.QueryString("page") if (page = "" or IsEmpty(page)) then page = 1 thisUrl = "orderList.asp?true=1" Session("adminOldUrl") = thisUrl&"&page = "&page set rsObj = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM OrderList WHERE state = 0 " strSQL = strSQL & " ORDER by id desc" rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly rsObj.pagesize = conMaxPerPage %> <html> <head> <title>订单维护</title> <meta http-equiv = "Content-Type" content = "text/html; charset = gb2312"> <link rel = "stylesheet" href = "include/main.css" type = "text/css"> </head> <body text = "#000000" leftmargin = "0" topmargin = "0"> <div align = "center"><br> </div> <table width = "99%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center"> <tr bgcolor = "#4296E7"> <form method = "post" action = "memberList.asp" name = "form1"> <td colspan = "7" height = "28"> <div align = "center"><font color = "#FFFFFF">订单维护</font></div> </td> </form> </tr> <tr bgcolor = "#5EA5E6"> <td width = "6%" nowrap> <div align = "center"><font color = "#FFFFFF"> 编号</font></div> </td> <td width = "8%" nowrap> <div align = "center"><font color = "#FFFFFF">客户帐号</font></div> </td> <td width = "7%" nowrap> <div align = "center"><font color = "#FFFFFF">客户姓名</font></div> </td> <td width = "50%" nowrap> <div align = "center"><font color = "#FFFFFF">地址</font></div> </td> <td width = "12%" nowrap> <div align = "center"><font color = "#FFFFFF">电话</font></div> </td> <td width = "12%" nowrap> <div align = "center"><font color = "#FFFFFF">Email</font></div> </td> <td width = "5%" nowrap> <div align = "center"><font color = "#FFFFFF">详细</font></div> </td> </tr> <% dim rsID i = 1 if not (rsObj.eof or err) then rsObj.move (page-1)*conMaxPerPage do while not (rsObj.eof or err) rsID = rsObj("id") %> <tr> <td width = "6%"> <div align = "center"><%=rsObj("id")%></div> </td> <%if rsObj("memberID")<>"0" then '非会员%> <td width = "8%" title = "点击查看会员信息" style = "cursor:hand" onClick = "Javascript:window.location = 'memModify.asp?memberID=<%=rsObj("memberID")%>'" nowrap><font color = red><b><%=rsObj("memberID")%></b></font> </td> <%else %> <td width = "8%">非会员</td> <%end if %> <td width = "7%" nowrap><%=rsObj("customerName")%></td> <td width = "50%"><%=rsObj("address")%></td> <td width = "12%" nowrap><%=rsObj("phone")%></td> <td width = "12%" nowrap><%=rsObj("email")%></td> <td width = "5%" title = "点击查看订单具体信息" style = "cursor:hand" onClick = "Javascript:window.location = 'orderProcess.asp?id=<%=rsObj("id")%>'" nowrap>处理</td> </tr> <% i = i+1 if i>conMaxPerPage then exit do rsObj.MoveNext loop %> <tr bgcolor = "#4296E7"> <td colspan = "7"> <div align = "right"><font color = #FFFFFF><%=rsObj.recordCount%> 项 第<%=page%>/<%=rsObj.pageCount%> 页 </font> <%if page>1 then%> <input type = "button" name = "Submit3" value = "首页" onClick = "Javascript:jumpTo(1)"> <input type = "submit" name = "Submit4" value = "上页" onClick = "Javascript:jumpTo(2)"> <%else%> <input type = "button" name = "Submit3" value = "首页" disabled> <input type = "submit" name = "Submit4" value = "上页" disabled> <%end if if rsObj.recordCount>page*conMaxPerPage then%> <input type = "submit" name = "Submit5" value = "下页" onClick = "Javascript:jumpTo(3)"> <input type = "submit" name = "Submit6" value = "末页" onClick = "Javascript:jumpTo(4)"> <%else%> <input type = "submit" name = "Submit5" value = "下页" disabled> <input type = "submit" name = "Submit6" value = "末页" disabled> <%end if%> </div> </td> </tr> </table> </body> </html>